home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / AmigaNorthThames / cgi-bin / news.pl < prev    next >
Perl Script  |  2001-04-21  |  4KB  |  188 lines
  1. #!/usr/bin/perl
  2.  
  3. #############
  4. # NewsDude Main Article script by Perlboy.org
  5. #
  6. #  This script is Copyright (c) 2000 by Perlboy.org, Stuart Low all rights
  7. #  reserved.  It may be used under the terms detailed in 
  8. #  http://www.perlboy.org/scripts/license.html
  9. #
  10. #  YOU MAY MODIFY THIS SCRIPT PROVIDED YOU LEAVE THE ABOVE COPYRIGHT HEADING
  11. #  INTACT AND THE "This script was provided by Perlboy.org" line at the footer of
  12. #  the News.pls output.
  13. #
  14. #  Other than that, enjoy the script. I did it mainly for a dude on
  15. #  alt.www.webmaster but also just for a kick on my last day of exams.
  16. # 
  17. #  If you want to get in touch, mail me at thedude@perlboy.org
  18. #  I WILL NOT ANSWER SUPPORT QUESTIONS THOUGH.
  19. #  This is mainly done due to the fact that I am a school student
  20. #  and therefore cannot afford to offer support for my free scripts.
  21. #
  22. #  Once again. Visit alt.www.webmaster there are MANY a soul who will
  23. #  happily help you.
  24. #
  25. #  If you own a business and use this on your clients sites
  26. #  Could you please email me and tell me so that I can add your
  27. #  business to a list of Web Design firms which use my script
  28. #  Much appreciated
  29. #  
  30. #  Perlboy. (Stuart Low)
  31. #  thedude@perlboy.org
  32. #
  33. # ------------------------------------------------------------------
  34. ##############################################################################
  35.  
  36. require "vars.pl";
  37. require "subs.pl";
  38.  
  39.  
  40.  
  41.  
  42. ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; 
  43. $year += "1900"; 
  44. $todays_date = "$mday\/$mon\/$year"; 
  45.  
  46. print "Content-Type: text/html\n\n";
  47.  
  48. open(NEWSFILE, "news.arch");
  49. @News=<NEWSFILE>;
  50. close(NEWSFILE);
  51.  
  52. if($outputtype eq 'detailed') {
  53.  
  54. print qq~
  55.  
  56.  
  57.  
  58.  
  59. ~;
  60.  
  61.  
  62. foreach $line (@News) {
  63.  
  64. ($Nick,$time,$title,$message) = split(/\|/,$line); 
  65.  
  66.  
  67.  
  68. print qq~
  69. <table width=95% border=0 ALIGN=CENTER CELLPADDING=1 CELLSPACING=0>
  70.  
  71. <TR>
  72. <TD COLSPAN=2 ALIGN=CENTER>
  73. <HR WIDTH=98%>
  74. </TD>
  75. </TR>
  76.  
  77. <tr> 
  78.  
  79.      <td WIDTH=50 ALIGN=RIGHT>
  80.           <IMG SRC="../Gfx/subject.jpg" ALT="Subject">
  81.      </TD>
  82.      
  83.      <td ALIGN=LEFT WIDTH="*">
  84.           <font size=+1>$title</font>
  85.      </td>
  86.      
  87. </tr>
  88.  
  89. <TR>
  90.  
  91.      <TD ALIGN=RIGHT>
  92.           <IMG SRC="../Gfx/Date.jpg" ALT="Date">
  93.      </TD>
  94.  
  95.      <TD ALIGN=LEFT VALIGN=MIDDLE>
  96.      $time
  97.      </TD>
  98.  
  99. </TR>
  100.  
  101. <tr> 
  102.  
  103.      <TD></TD>
  104.  
  105.      <td>
  106.           $message
  107.      </td>
  108.  
  109. </tr>
  110. </TABLE>
  111.  
  112. ~;
  113.  
  114. }
  115.  
  116.  
  117. print qq~
  118. <table width=95% border=0 ALIGN=CENTER CELLPADDING=1 CELLSPACING=0>
  119.   <tr>
  120.  
  121. <TD ALIGN=CENTER>
  122.  
  123. <HR WIDTH=98%>
  124.  
  125.       <BR>OriginalScript  
  126.       <a href="http://www.perlboy.org/main.html">Perlboy.org</a><BR>
  127. Modified By Mike Woods 2001
  128.  
  129.  
  130.     </td>
  131.   </tr>
  132. </table>
  133. ~;
  134.      
  135. }
  136.  
  137. else {
  138.  
  139. print qq~
  140.  
  141.  
  142. <table width="82%" border="$border">
  143. <tr> 
  144.     <td><font color="$titletextcolour"><b>Latest News:</b></font></td>
  145.   </tr>
  146.   
  147.   </table>
  148. <br>
  149. ~;
  150.  
  151.  
  152. foreach $line (@News) {
  153.  
  154. ($Nick,$time,$title,$message) = split(/\|/,$line); 
  155.  
  156.  
  157.  
  158. print qq~
  159.  
  160. <table width="82%" border="$border">
  161.   <tr> 
  162.     <td> 
  163.       <p align="$messagealignment"><b>$time<br>
  164.         </b>$message</p>
  165.     </td>
  166.   </tr>
  167. </table>  
  168. <br>
  169. ~;
  170.  
  171. }
  172.  
  173.  
  174. print qq~
  175.  
  176. <table width="82%" border="$border">
  177.   <tr> 
  178.       <font color="$messagetextcolour"><div align="$messagealignment">This script was provided by 
  179.       <a href="http://www.perlboy.org/main.html">Perlboy.org</a></div>
  180.     </td>
  181.   </tr>
  182. </table>
  183.  
  184. ~;
  185.      
  186. }    
  187.  
  188.